home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / NAME THAT DATE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  7KB  |  147 lines
  1. 8 P = 1500
  2. 9  GOTO 100
  3. 10  FOR PAUSE = 1 TO P: NEXT : RETURN 
  4. 11  COLOR= 0: PLOT 2,2: PLOT 3,2: PLOT 6,2
  5. 12  PLOT 2,3: PLOT 2,4: PLOT 2,5
  6. 13  PLOT 4,3: PLOT 5,4: PLOT 6,3: PLOT 6,4: PLOT 6,5
  7. 14  PLOT 8,2: PLOT 8,3: PLOT 8,4: PLOT 8,5: PLOT 9,2: PLOT 9,4: PLOT 10,2: PLOT 10,3: PLOT 10,4: PLOT 10,5
  8. 15  PLOT 12,2: PLOT 12,3: PLOT 12,4: PLOT 12,5: PLOT 13,2: PLOT 14,2: PLOT 14,3: PLOT 15,2: PLOT 16,2: PLOT 16,3: PLOT 16,4: PLOT 16,5
  9. 16  PLOT 18,2: PLOT 18,3: PLOT 18,4: PLOT 18,5: PLOT 19,2: PLOT 20,2: PLOT 21,2: PLOT 19,3: PLOT 19,5: PLOT 20,5: PLOT 21,5
  10. 17  PLOT 19,7: PLOT 20,7: PLOT 21,7: PLOT 21,8: PLOT 21,9: PLOT 21,10: PLOT 22,7: PLOT 23,7
  11. 18  PLOT 25,7: PLOT 25,8: PLOT 25,9: PLOT 25,10: PLOT 26,9: PLOT 27,9: PLOT 28,7: PLOT 28,8: PLOT 28,9: PLOT 28,10
  12. 19  PLOT 30,7: PLOT 30,8: PLOT 30,9: PLOT 30,10: PLOT 31,7: PLOT 31,9: PLOT 32,7: PLOT 32,8: PLOT 32,9: PLOT 32,10
  13. 20  PLOT 34,7: PLOT 35,7: PLOT 36,7: PLOT 36,8: PLOT 36,9: PLOT 36,10: PLOT 37,7: PLOT 38,7
  14. 21  VLIN 12,37 AT 2: HLIN 3,9 AT 12
  15. 22  PLOT 10,13: PLOT 11,14: VLIN 15,34 AT 12
  16. 23  HLIN 3,9 AT 37: PLOT 10,36: PLOT 11,35
  17. 24  VLIN 12,37 AT 14: HLIN 14,20 AT 12: VLIN 12,37 AT 21
  18. 25  HLIN 23,29 AT 12: VLIN 12,37 AT 26
  19. 26  HLIN 14,20 AT 25
  20. 27  VLIN 12,37 AT 31: HLIN 31,37 AT 12: HLIN 31,37 AT 37: HLIN 31,34 AT 24
  21. 99  RETURN 
  22. 100  REM    HISTORY PROJECT; BY WILL BAYER; FEBRUARY 9, 1980
  23. 101  TEXT : HOME 
  24. 102  GR : FOR P = 0 TO 39: COLOR= 15: VLIN 0,39 AT P: NEXT P: GOSUB 11
  25. 103 P = 1000: GOSUB 10: FOR K = 1 TO 15: CALL  -198: NEXT K: TEXT : HOME 
  26. 105  HOME : VTAB 10: PRINT ; TAB( 10);"NAME THAT DATE!!!": GOSUB 10: VTAB 17: PRINT ; TAB( 25);"BY WILL BAYER"
  27. 106  VTAB (19): PRINT ; TAB( 25);"PERIOD 6": VTAB (21): PRINT ; TAB( 25);"FEBRUARY 18,1980"
  28. 107 P = 2000: GOSUB 10
  29. 110  HOME 
  30. 120  DIM A(25),B(4),Y$(25),Q$(25),C$(25),Y(25)
  31. 140  FOR I = 1 TO 25
  32. 150  READ Q$(I),Y$(I): NEXT 
  33. 160  FOR I = 1 TO 25:A(I) = 0: NEXT I:G = 0:N = 0:L = 0
  34. 161 X = X +1
  35. 200  HOME : PRINT "MULTIPLE-CHOICE---ANSWER EACH QUESTION  WITH 1, 2, 3, OR 4"
  36. 210 K = 1: PRINT "TO STOP, TYPE 0 FOR YOUR ANSWER"
  37. 215  PRINT "WHAT IS YOUR NAME"
  38. 217  INPUT C$(X)
  39. 220 P = 1000: GOSUB 10
  40. 250  PRINT 
  41. 320  FOR I = 1 TO 10
  42. 330 R =  INT( RND(1) *100): IF R <1  OR R >25  THEN  GOTO 330
  43. 335  HOME 
  44. 336  PRINT : PRINT 
  45. 340  IF A(R) < >2  THEN 400
  46. 350  NEXT I
  47. 370  FOR R = 1 TO 25
  48. 380  IF A(R) < >2  THEN 400
  49. 390  NEXT R: GOTO 850
  50. 400  IF A(R) = 1  THEN  PRINT "TRY THIS ONE AGAIN ";C$(X)
  51. 410  IF X = 1  THEN 520
  52. 520  REM  MULT-CHOICE ASKED HERE
  53. 540 C =  INT( RND(1) *4) +1: IF C <1  OR C >4  THEN  GOTO 540
  54. 550  REM   PICK 4 DATES
  55. 560  FOR I = 1 TO 4
  56. 570 B(I) =  INT( RND(1) *100) +1: IF B(I) <1  OR B(I) >25  THEN  GOTO 570
  57. 580  NEXT I
  58. 590 B(C) = R
  59. 610  IF B(1) = B(2)  OR B(1) = B(3)  OR B(1) = B(4)  THEN 560
  60. 620  IF B(2) = B(3)  OR B(2) = B(4)  OR B(3) = B(4)  THEN 560
  61. 630  IF Y = 2  THEN 694
  62. 694 L = L +1: IF A(R) = 1  THEN 696
  63. 695  VTAB (3): PRINT "QUESTION # ";L;" ";C$(X)
  64. 696  GOTO 700
  65. 697  VTAB (5): PRINT Y$(R);" IN "
  66. 698  GET Z:Z =  INT( ABS(Z))
  67. 699  GOTO 740
  68. 700  VTAB (9): PRINT ; TAB( 5);"1.";Q$(B(1)); TAB( 15);"3.";Q$(B(3))
  69. 710  VTAB (12): PRINT ; TAB( 5);"2.";Q$(B(2)); TAB( 15);"4.";Q$(B(4))
  70. 711  GOTO 697
  71. 740  IF Z = 5  THEN  GOSUB 1000
  72. 741  IF Z <1  OR Z >5  THEN 810
  73. 750  IF Z = C  THEN 770
  74. 755  FOR C1 = 1 TO 5: CALL  -198: NEXT 
  75. 760 A(R) = 1: VTAB (15): PRINT Q$(B(Z));" IS WRONG"
  76. 761 G = G +1
  77. 762 P = 4000: GOSUB 10
  78. 763  GOTO 790
  79. 770 A(R) = 2:N = N +1:G = G +1
  80. 775  CALL  -198
  81. 780  VTAB (15): PRINT Q$(B(Z));" IS CORRECT!!": IF G = 10  AND N = 10  THEN  HOME : VTAB (17): PRINT "YOU'RE DOING FINE"
  82. 781  IF G = 20  AND N = 20  THEN  PRINT : PRINT "PERFECT SCORE (SO FAR)"
  83. 782  IF G = 24  AND N = 24  THEN  PRINT : PRINT "ONE MORE TO GO, DON'T BLOW IT NOW!!"
  84. 786 P = 2000: GOSUB 10
  85. 790  PRINT 
  86. 800  IF N <25  THEN 320
  87. 805  GOTO 850
  88. 810  PRINT "DO YOU WANT TO STOP(Y/N)": GET Z$
  89. 820  IF Z$ = "Y"  THEN 850
  90. 825  IF Z$ < >"N"  THEN  GOTO 810
  91. 830  PRINT "LET'S DO THE QUESTION AGAIN!"
  92. 835 P = 1000: GOSUB 10: HOME : GOTO 695
  93. 850  VTAB (20)
  94. 860  PRINT "YOU GOT ";N;" CORRECT IN ";G;" GUESSES, WHICH IS ";N/G *100;"% CORRECT"
  95. 865  GOSUB 1040
  96. 881  IF N/G *100 = 100  THEN  PRINT "GEE!!YOU'RE SMART.  MY HAT IS OFF TO YOU!!"
  97. 882  IF N/G *100 >90  THEN  PRINT "YOU GOT AN 'A'": GOTO 900
  98. 883  IF N/G *100 >80  THEN  PRINT "YOU GOT A 'B'": GOTO 900
  99. 885  IF N/G *100 >70  THEN  PRINT "YOU GOT A 'C'": GOTO 900
  100. 886  IF N/G *100 >60  THEN  PRINT "YOU GOT A 'D'": GOTO 900
  101. 887  IF N/G *100 < = 60  THEN  PRINT "STUDY HARDER"
  102. 889 P = 5000: GOSUB 10: GOTO 1030
  103. 890  DATA   "1492","COLUMBUS DISCOVERED AMERICA","1513","PONCE DE LEON BEGAN EXPLORING FLORIDA FOR THE FOUNTAIN OF YOUTH "
  104. 892  DATA     "1565","SPANISH FOUNDED ST.AUGUSTINE","1585","SIR WALTER RALEIGH FAILED TO FOUND A COLONY"
  105. 894  DATA   "1607","JAMESTOWN WAS FOUNDED","1620","PILGRIMS FOUNDED THE PLYMOUTH COLONY"
  106. 896  DATA    "1636","FIRST COLLEGE WAS FOUNDED (IN AMERICA--HARVARD)","1647","MASSACHUSSETS ESTABLISHED THE FIRST PUBLIC SCHOOL SYSTEM IN THE US "
  107. 898  DATA    "1752","BENJAMIN FRANKLIN PROVED THAT LIGHTNING IS A FORM OF ELECTRICITY"
  108. 900  DATA    "1763","BRITAIN DEFEATED THE FRENCH IN THE FRENCH-INDIAN WAR","1765","STAMP ACT WAS PASSED"
  109. 902  DATA    "1770","BOSTON MASSACRE WAS ","1773","BOSTON TEA PARTY WAS "
  110. 904  DATA   "1774","INTOLERABLE ACTS WERE PASSED ","1775","THE REVOLUTIONARY WAR WAS STARTED"
  111. 906  DATA   "1776","COLONISTS ADOPTED THE DECLARATION OF INDEPENDENCE","1781","WASHINGTON DEFEATED CORNWALIS AT YORKTOWN "
  112. 908  DATA   "1783","TREATY OF PARIS OFFICIALLY ENDED THE REVOLUTIONARY WAR"
  113. 910  DATA   "1787","CONSTITUTION WAS WRITTEN ","1793 ","ELI WHITNEY INVENTED THE COTTON GIN"
  114. 911  DATA  "1800","WASHINGTON DC BECAME OUR NATIONAL CAPITAL"
  115. 912  DATA   "1803","LOUISIANA PURCHASE WAS PURCHASED","1837","SAMUEL MORSE DEMONSTRATED THE FIRST SUCCESFUL TELEGRAPH IN THE US "
  116. 914  DATA   "1846","US GAINED THE SOUTHERN PART OF THE OREGON COUNTRY "
  117. 916  DATA     "1848","US GAINED THE MEXICAN CESSION IN THE MEXICAN WAR"
  118. 918 P = 1500: GOSUB 10
  119. 919  HOME 
  120. 920  GOSUB 1030
  121. 930  END 
  122. 1000  REM  SCORING
  123. 1005  VTAB (20)
  124. 1010  PRINT "YOU NOW HAVE ";N;" CORRECT"
  125. 1012  PRINT " OUT OF ";G;" GUESSES"
  126. 1013  PRINT "ANSWER THE QUESTION"
  127. 1015  GET Z
  128. 1020  RETURN 
  129. 1030  HOME : PRINT "WOULD ANYONE ELSE LIKE TO PLAY"
  130. 1031  GET W$
  131. 1032  IF W$ = "N"  THEN  GOTO 1044
  132. 1033  IF W$ < >"Y"  THEN 1030
  133. 1034  IF W$ = "Y"  THEN  GOTO 160
  134. 1035  HOME : GOTO 1045
  135. 1040 M = N/G *100
  136. 1041 Y(X) = M
  137. 1042 Y(X) =  INT(Y(X) *100 +.5)/100
  138. 1043  RETURN 
  139. 1044  PRINT : PRINT : PRINT 
  140. 1045  PRINT "THESE ARE THE PEOPLE (AND THEIR RESPECT-IVE SCORES) THAT HAVE PLAYED THE GAME"
  141. 1049  FOR Q1 = 1 TO X
  142. 1051  PRINT  TAB( 5)Q1;".";C$(Q1); TAB( 20);Y(Q1);" %"
  143. 1058  NEXT 
  144. 1059 P = 5000: GOSUB 10
  145. 1060  GET Z$
  146. 1070  GR : FOR P = 0 TO 39: COLOR= 15: VLIN 0,39 AT P: NEXT P: GOSUB 11
  147. 1071  END